home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / misc / RecentScript.lha / RecentScript / Plugins / RecentScript_MM.rexx next >
Encoding:
OS/2 REXX Batch file  |  1997-04-19  |  692 b   |  28 lines
  1. /*****
  2.   $VER: RecentScript MM PlugIn 0.1 (12.4.97)
  3.  
  4.      RecentScript PlugIn for E-Mail Reader MailManager.
  5.  
  6.  Starts the MUIRexx application 'RecentScript' within
  7.  MailManager.
  8.  
  9.  By Eugene Stepanoff. (c) 1997 All Wrongs Reserved.
  10.  Based on MM_UserInfo script by Erik Børsting & Kasper B. Graversen
  11. *****/
  12.  
  13. address mailmanager
  14. parse arg tagname msgno
  15. mm_readmsg '"'tagname'"' msgno aminet
  16. if rc = 4 then call error
  17. mm_writestem 'T:aminet.temp' aminet.text
  18.  
  19. address command 'MUIRexx:MUIRexx "MUIRexx:RecentScript/RecentScript.rexx T:aminet.temp" PORT RECENTSCRIPT'
  20. address command 'delete >NIL: T:aminet.temp'
  21.  
  22. exit
  23.  
  24.  
  25. error:
  26. mm_requester 'ERROR!' 'Unknown Area or Unknown Message' '*_Ok'
  27. exit
  28.